home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AECOLINI.BAS < prev    next >
BASIC Source File  |  1987-12-10  |  640b  |  30 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard routines'
  3. rem $subtitle:'Set up color table from file'
  4.  
  5.  
  6. '                Include the COMMON values
  7. rem $include:'AESHARED.BAS'            
  8.     
  9. sub color.init(f$) static
  10.     open "r",1,f$
  11.     w!=lof(1)
  12.     if w!=0 then
  13.         for j%=1% to 10%
  14.             ae.fg%(j%)=7%
  15.             ae.bg%(j%)=0%
  16.             ae.hg%(j%)=0%
  17.         next j%
  18.     else
  19.         field #1,60 as ae.color$
  20.         get #1,1
  21.         for j%=1% to 10%
  22.             ae.fg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+1%,1%))
  23.             ae.bg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+2%,1%))
  24.             ae.hg%(j%)=asc(mid$(ae.color$,(j%-1%)*3%+3%,1%))
  25.         next j%
  26.     end if
  27.     close 1
  28. end sub
  29.  
  30.